home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2008 February / PCWFEB08.iso / Software / Resources / Developers / PSPad 4.5.2 / pspad452inst_en.exe / {app} / Script / VBScript / PrinAll.vbs < prev   
Encoding:
Text File  |  2006-02-12  |  642 b   |  22 lines
  1. ' it will create new editor window, copy all text from first window into new
  2. ' and save new file as C:\SAMPLE.TXT
  3. const module_name  = "PrintAll"         'this name must be unique !!!
  4. const module_ver   = "0.001a"            'version
  5.  
  6. sub PrintAll
  7.   set obj = NewEditor()
  8.   for i = 0 to editorsCount - 1
  9.       obj.assignEditorByIndex(i)
  10.       if i = 0 then
  11.          obj.printFile(True)
  12.       else    
  13.          obj.printFile(False)
  14.       end if
  15.   next  
  16. end sub
  17.  
  18. ' name "Init" is required, its called automatically during initialization to create menu items
  19. sub Init
  20.   addMenuItem "Print all files","", "PrintAll"
  21. end sub
  22.